Private Sub btn_Click()

    Dim  As Integer

    For  = 0 To lst.ListCount - 1
    
        lst.Selected() = False
    
    Next

End Sub